home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d6
/
mailmen.arc
/
MAILINP.PRG
< prev
next >
Wrap
Text File
|
1991-01-10
|
3KB
|
106 lines
* THIS PROGRAM IS CALLED MAILINP.PRG-- MASTER PROGRAM FOR INPUT OF DATA TO
* MAILING LIST PROGRAM COPYRIGHT JULY 31, 1983 BY PHILIP K. PERLMAN
SET TALK OFF
ERASE
SET TALK OFF
poke 1047,10
STORE T TO CONTINUE
DO WHILE CONTINUE
STORE 0 TO MAINMEN
STORE 0 TO MREC1
USE MAIL
APPEND BLANK
STORE # TO MREC1
STORE T TO FMT
DO WHILE FMT
SET FORMAT TO GETMAIL
READ
CLEAR GETS
STORE T TO REVIEW
DO WHILE REVIEW
erase
@ 10,5 SAY "Are all you entries correct ?"
@ 12,5 SAY "Press 'R' to review and correct your entries"
@ 14,5 SAY "Press 'Y' to write your entries into the record"
@ 16,5 SAY "Press 'N' to abort entries and return to the menu"
?
?
?
WAIT TO ANS
IF !(ANS) <> 'R' .AND. !(ANS) <> 'Y' .AND. !(ANS) <> 'N'
ERASE
LOOP
ELSE
STORE F TO REVIEW
ENDIF
ENDDO
IF !(ANS) = 'R'
CLEAR GETS
ERASE
LOOP
ELSE
IF !(ANS) = 'Y'
STORE F TO FMT
ERASE
ELSE
STORE F TO FMT
ERASE
SET FORMAT TO SCREEN
USE
USE MAIL
GOTO MREC1
DELE
PACK
RELEASE FMT, REVIEW, ANS, FORMAT,
RETURN
ENDIF
ENDIF
ENDDO
ERASE
@ 10,5 SAY 'Do you want to add more records ?'
@ 12,5 SAY "Press 'N' to return to the menu"
@ 14,5 SAY 'Press any other key to continue'
?
?
?
?
WAIT TO ANSWER
IF !(ANSWER) = 'N'
ERASE
@ 10,5 SAY "...PROCESSING ENTRIES..."
USE
USE MAIL
INDEX ON PROF1 TO PROF1
INDEX ON PROF2 TO PROF2
INDEX ON PROF3 TO PROF3
INDEX ON LAST TO LAST
INDEX ON COMPANY TO COMP
STORE F TO CONTINUE
RETURN
ENDIF
ENDDO
S PROGRAM IS CALLED MAILINP.PRG-- MASTER PROGRAM FOR INPUT OF DATA TO
* MAILING LIST PROGRAM COPYRIGHT JULY 31, 1983 BY PHILIP K. PERLMAN
SET TALK OFF
ERASE
SET TALK OFF
poke 1047,10
STORE T TO CONTINUE
DO WHILE CONTINUE
STORE 0 TO MAINMEN
STORE 0 TO MREC1
USE MAIL
APPEND BLANK
STORE # TO MREC1
STORE T TO FMT
DO WHILE FMT
SET FORMAT TO GETMAIL
READ
CLEAR GETS
STORE T TO REVIEW
DO WHILE REVIEW
erase
@ 10,5 SAY "Are all you entries correct ?"
@ 12,5 SAY "Press 'R' to review and cor